home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / exp / bpp / no1 / bppsmpl.bpp < prev    next >
Text File  |  1994-01-07  |  483b  |  37 lines
  1. '
  2. ' BPPSMPL.BPP --- BPP sample program
  3. '
  4.  
  5. #include <BPPSMPL.BI>
  6.  
  7. #define CLSFLAG
  8. #define LOOPMAX 100
  9. #define SUM(A,B) A+B
  10.  
  11. #ifdef CLSFLAG
  12.   cls
  13. #endif
  14. #ifndef CLSFLAG
  15.   print chr$(12);
  16. #endif
  17.  
  18. #ifdef NOTDEFINED
  19.   print "This line can't be output."
  20. #endif
  21.  
  22. call FROMLEFT("ABCDEFG",3)
  23.  
  24. print "1+2=";SUM(1,2)
  25. print SUM(STRING1,STRING2)
  26.  
  27. for i=0, i<LOOPMAX, i=i+1
  28.   print "BABEL ";
  29. next
  30.  
  31. end
  32.  
  33. sub FROMLEFT(S$,I%)
  34.   print LEFT$(S$,I%)
  35.   exitsub
  36. endsub
  37.